From f6f6d98c0fd7393dd99826eec5d63fdb12f4f897 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 May 1993 16:21:12 +0000 Subject: [PATCH] Pass x-command-line-resources to x-open-connection. (x-command-line-resources): New variable. (x-handle-rn-switch): New function. (command-switch-alist): Add -rn. --- lisp/term/x-win.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index c19bf41259d..84a09026618 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -76,6 +76,8 @@ (require 'select) (require 'menu-bar) +(defvar x-command-line-resources nil) + (setq command-switch-alist (append '(("-bw" . x-handle-numeric-switch) ("-d" . x-handle-display) @@ -98,6 +100,7 @@ ("-itype" . x-handle-switch) ("-i" . x-handle-switch) ("-iconic" . x-handle-switch) + ("-rn" . x-handle-rn-switch) ("-cr" . x-handle-switch) ("-vb" . x-handle-switch) ("-hb" . x-handle-switch) @@ -152,6 +155,11 @@ x-invocation-args (cdr x-invocation-args))))) +;; Handle the -rn option. +(defun x-handle-rn-switch (switch) + (setq x-command-line-resources (car x-invocation-args)) + (setq x-invocation-args (cdr x-invocation-args))) + ;; Handle the geometry option (defun x-handle-geometry (switch) (setq initial-frame-alist @@ -508,7 +516,8 @@ This returns ARGS with the arguments that have been processed removed." (setq command-line-args (x-handle-args command-line-args)) (x-open-connection (or x-display-name - (setq x-display-name (getenv "DISPLAY")))) + (setq x-display-name (getenv "DISPLAY"))) + x-command-line-resources) (setq frame-creation-function 'x-create-frame-with-faces) -- 2.30.2